﻿Imports System.Data
Imports MetodosComuns
Imports extranet.BC
Imports extranet.BE
Imports extranet.DA
Imports System.Collections.Generic

Partial Class cadastrarCandidato
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  End Sub

  Protected Sub btnCadastrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCadastrar.Click
    Try
      lblErro.Visible = False
      If BCCandidato.CpfExiste(txt_Cpf.Text) Then
        lblErro.Visible = True
        lblErro.Text = "O CPF informado já está cadastrado no Sistema"
      ElseIf BCUsuario.UsuarioExiste(txt_Login.Text) Then
        lblErro.Visible = True
        lblErro.Text = "O nome para LOGIN já foi selecionado no Sistema"
      ElseIf Not txt_Senha.Text.Equals(txt_Senha2.Text) Then
        lblErro.Visible = True
        lblErro.Text = "As senhas digitadas não são iguais"
      Else
        Dim objBECandidato As New BECandidato()
        objBECandidato.Nome = Me.txt_Nome.Text
        objBECandidato.Cpf = Me.txt_Cpf.Text
        objBECandidato.Rg = Me.txt_Rg.Text
        objBECandidato.Senha = Me.txt_Senha.Text
        objBECandidato.Email = Me.txt_Email.Text
        objBECandidato.Login = Me.txt_Login.Text
        objBECandidato.Id = -1

        BCCandidato.Salvar(objBECandidato)
        Session("objBEUsuario") = BCUsuario.SelecionarLogin(objBECandidato.Login, objBECandidato.Senha)
        Session("recemCadastrado") = True
        Response.Redirect("cadastrarCurriculoCandidato.aspx")
      End If
    Catch ex As Exception

      lblErro.Text = "Erro no cadastro do usuário"
      System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf)
      System.Web.HttpContext.Current.Response.Write("alert(""Erro no cadastro " & ex.Message & """)" & vbCrLf)
      System.Web.HttpContext.Current.Response.Write("</SCRIPT>")
    End Try
  End Sub

End Class
